(after-find-file): Improve warning message about

existing file that can't be read.

diff --git a/lisp/files.el b/lisp/files.el
index fbf75041726209eaf8843d7edf6fcec3cae8f3e4..6c35a19f522a2326a3920a0f20b998ac833212a4 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -694,7 +694,7 @@ Finishes by calling the functions in `find-file-hooks'."
           (msg
            (cond ((and error (file-attributes buffer-file-name))
                   (setq buffer-read-only t)
-                  "File exists, but is read-protected.")
+                  "File exists, but cannot be read.")
                  ((not buffer-read-only)
                   (if (and warn
                            (file-newer-than-file-p (make-auto-save-file-name)